500
How can I filter items for dates before a specified date

With AxTree1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXTREELib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXTREELib.FilterListEnum.exShowFocusItem Or EXTREELib.FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = EXTREELib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With
499
Is it possible to filter dates

With AxTree1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = EXTREELib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXTREELib.FilterListEnum.exShowFocusItem Or EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With
498
Is it possible to change the Exclude field name to something different, in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXTREELib.DescriptionTypeEnum.exFilterBarExclude,"Leaving out")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowExclude Or EXTREELib.FilterListEnum.exShowFocusItem Or EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
497
How can I display the Exclude field in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowExclude Or EXTREELib.FilterListEnum.exShowFocusItem Or EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
496
Is it possible to show and ensure the focused item from the control, in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowFocusItem Or EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.SelectItem(.InsertItem(h,Nothing,"Child 2")) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
495
Is it possible to show only blanks items with no listed items from the control

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowBlanks Or EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
494
How can I include the blanks items in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowBlanks Or EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
493
How can I select multiple items in the drop down filter window, using check-boxes

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
492
Is it possible to allow a single item being selected in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXTREELib.FilterListEnum.exSingleSel
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
491
How can I display no (All) item in the drop down filter window

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXTREELib.DescriptionTypeEnum.exFilterBarAll,"")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
490
Is it possible to display no items in the drop down filter window, so only the pattern is visible

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
489
How do I hide the selection

With AxTree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With
488
How do I access the cells, or how do I get the values in the columns
Dim h
With AxTree1
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellCaption(h,1) = "SubItem 1.1"
		.CellCaption(h,2) = "SubItem 1.2"
		Debug.Print( .CellCaption(h,0) )
	End With
End With
487
Is it possible to load child items when clicking the +/- button

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxTree1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXTREELib._ITreeEvents_BeforeExpandItemEvent) Handles AxTree1.BeforeExpandItem
	With AxTree1
		With .Items
			.InsertItem(e.item,Nothing,"new")
			.ItemHasChildren(.InsertItem(e.item,Nothing,"new")) = True
			.InsertItem(e.item,Nothing,"new")
		End With
	End With
End Sub

With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	With .Items
		.ItemHasChildren(.AddItem("aka")) = True
		.AddItem("next item")
	End With
End With
486
How can I change the check-boxes appearance

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.Def(EXTREELib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	With .VisualAppearance
		.Add(1,"XP:Button 3 12")
		.Add(2,"XP:Button 3 11")
		.Add(3,"XP:Button 3 10")
	End With
	.set_CheckImage(EXTREELib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXTREELib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(EXTREELib.CheckStateEnum.PartialChecked,50331648)
End With
485
How can I initiate the OLE Drag and Drop support

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxTree1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXTREELib._ITreeEvents_OLEStartDragEvent) Handles AxTree1.OLEStartDrag
	' Data.SetData("data to drag")
	With AxTree1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxTree1
	.OLEDropMode = EXTREELib.exOLEDropModeEnum.exOLEDropManual
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
484
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)

With AxTree1
	.BeginUpdate()
	With .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = EXTREELib.GridLinesEnum.exRowLines
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .Items
		.AddItem()
		.AddItem()
		.AddItem()
	End With
	.EndUpdate()
End With
483
Is it possible to display empty strings for 0 values

With AxTree1
	.Columns.Add("Currency").FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With
482
Is it possible to display empty strings for 0 values

With AxTree1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With
481
How can I get the list of items as they are displayed
With AxTree1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXTREELib.SortOrderEnum.SortAscending
	.EndUpdate()
	Debug.Print( .GetItems(1) )
End With
480
Is posible to reduce the size of the picture to be shown in the column's caption

With AxTree1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate()
End With
479
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

With AxTree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 11
		.CellCaption(.AddItem(12),1) = 13
	End With
	.EndUpdate()
End With
478
The item is not getting selected when clicking the cell's checkbox. What should I do

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxTree1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXTREELib._ITreeEvents_CellStateChangedEvent) Handles AxTree1.CellStateChanged
	With AxTree1
		.Items.SelectItem(e.item) = True
	End With
End Sub

With AxTree1
	.Columns.Add("Check").Def(EXTREELib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With
477
Is it possible to limit the height of the item while resizing

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxTree1_AddItem(ByVal sender As System.Object, ByVal e As AxEXTREELib._ITreeEvents_AddItemEvent) Handles AxTree1.AddItem
	With AxTree1
		.Items.ItemMinHeight(e.item) = 18
		.Items.ItemMaxHeight(e.item) = 72
	End With
End Sub

With AxTree1
	.BeginUpdate()
	.ItemsAllowSizing = EXTREELib.ItemsAllowSizingEnum.exResizeItem
	.ScrollBySingleLine = False
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXTREELib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
476
Is it possible to copy the hierarchy of the control using the GetItems method

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Def")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.PutItems(.GetItems(-1))
End With
475
How can I show the child items with no identation

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.HasLines = EXTREELib.HierarchyLineEnum.exThinLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With
474
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
473
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With
472
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
471
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLinesInside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
470
Is there other ways of showing the hierarchy lines (exGroupLines)

Dim h
With AxTree1
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exGroupLines
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"SubChild 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
469
Does your control supports multiple lines tooltip

With AxTree1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " & _
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
End With
468
How can I prevent highlighting the column from the cursor - point

With AxTree1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJ" & _
"gEgI=")
	.set_Background(EXTREELib.BackgroundPartEnum.exCursorHoverColumn,16777216)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
467
Is there any option to show the tooltip programmatically

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxTree1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREELib._ITreeEvents_MouseMoveEvent) Handles AxTree1.MouseMoveEvent
	Dim c,hit
	With AxTree1
		.ShowToolTip(.get_ItemFromPoint(-1,-1,c,hit),"","8","8")
	End With
End Sub

With AxTree1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
466
Is it possible to prevent changing the rows/items colors by selection

With AxTree1
	.SelBackMode = EXTREELib.BackModeEnum.exTransparent
	.Columns.Add("HTML").Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
	With .Items
		.AddItem("<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.")
		.SelectItem(.AddItem("<font ;6>This</font> <b>is</b> another <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.")) = True
	End With
End With
465
Is it possible to specify the cell's value but still want to display some formatted text instead the value

Dim h
With AxTree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.Columns.Add("Value")
	.Columns.Add("FormatCell")
	With .Items
		h = .AddItem(1)
		.CellCaption(h,1) = 12
		.FormatCell(h,1) = "currency(value)"
		h = .AddItem(#1/1/2001#)
		.CellCaption(h,1) = #1/1/2001#
		.CellCaptionFormat(h,1) = EXTREELib.CaptionFormatEnum.exHTML
		.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
	End With
	.EndUpdate()
End With
464
How can I simulate displaying groups

Dim h,h1
With AxTree1
	.BeginUpdate()
	.HasLines = EXTREELib.HierarchyLineEnum.exNoLine
	.ScrollBySingleLine = True
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		.Add("A")
		.Add("B")
		.Add("C")
	End With
	With .Items
		h = .AddItem("Group 1")
		.CellHAlignment(h,0) = EXTREELib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXTREELib.DividerAlignmentEnum.DividerBoth
		.ItemHeight(h) = 24
		.SortableItem(h) = False
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellCaption(h1,1) = 1
		.CellCaption(h1,2) = 2
		.CellCaption(h1,3) = 3
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellCaption(h1,1) = 4
		.CellCaption(h1,2) = 5
		.CellCaption(h1,3) = 6
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.CellHAlignment(h,0) = EXTREELib.AlignmentEnum.CenterAlignment
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXTREELib.DividerAlignmentEnum.DividerBoth
		.ItemHeight(h) = 24
		.SortableItem(h) = False
		h1 = .InsertItem(h,Nothing,"Child 1")
		.CellCaption(h1,1) = 1
		.CellCaption(h1,2) = 2
		.CellCaption(h1,3) = 3
		h1 = .InsertItem(h,Nothing,"Child 2")
		.CellCaption(h1,1) = 4
		.CellCaption(h1,2) = 5
		.CellCaption(h1,3) = 6
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
463
How can I collapse all items

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = False
	End With
	.EndUpdate()
End With
462
How can I expand all items

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With
461
Can I use PNG images to display pictures in the control

With AxTree1
	.set_HTMLPicture("pic1","c:\exontrol\images\card.png")
	.HeaderHeight = 48
	.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
End With
460
Is it possible to move an item from a parent to another

With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),.FindItem("A",0))
	End With
	.EndUpdate()
End With
459
How can I change the identation for an item

With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.FindItem("D",0),0)
	End With
	.EndUpdate()
End With
458
How can I filter programatically using more columns

With AxTree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Car")
		.Add("Equipment")
	End With
	With .Items
		.CellCaption(.AddItem("Mazda"),1) = "Air Bag"
		.CellCaption(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellCaption(.AddItem("Ford"),1) = "Air condition"
		.CellCaption(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellCaption(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellCaption(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	With .Columns.Item("Car")
		.FilterType = EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Mazda"
	End With
	With .Columns.Item("Equipment")
		.FilterType = EXTREELib.FilterTypeEnum.exPattern
		.Filter = "*ABS*|*ESP*"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
457
Is it possible to colour a particular column, I mean the cell's foreground color

With AxTree1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.CellCaption(.AddItem(0),1) = 1
		.CellCaption(.AddItem(2),1) = 3
		.CellCaption(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
456
Is it possible to colour a particular column for specified values

With AxTree1
	.BeginUpdate()
	With .ConditionalFormats.Add("int(%1) in (3,4,5)")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.CellCaption(.AddItem(0),1) = 1
		.CellCaption(.AddItem(2),1) = 3
		.CellCaption(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
455
Is it possible to colour a particular column

With AxTree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Def(EXTREELib.DefColumnEnum.exCellBackColor) = 255
	End With
	With .Items
		.CellCaption(.AddItem(0),1) = 1
		.CellCaption(.AddItem(2),1) = 3
		.CellCaption(.AddItem(4),1) = 5
	End With
	.EndUpdate()
End With
454
How do i get all the children items that are under a certain parent Item handle
Dim h,hChild
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	With .Items
		hChild = .ItemChild(.FirstVisibleItem)
		Debug.Print( .CellCaption(hChild,0) )
		Debug.Print( .CellCaption(.NextSiblingItem(hChild),0) )
	End With
	.EndUpdate()
End With
453
How can I get the caption of focused item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxTree1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxTree1.SelectionChanged
	With AxTree1
		With .Items
			Debug.Print( "Handle" )
			Debug.Print( .FocusItem )
			Debug.Print( "Caption" )
			Debug.Print( .CellCaption(.FocusItem,0) )
		End With
	End With
End Sub

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
452
How can I get the caption of selected item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxTree1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxTree1.SelectionChanged
	With AxTree1
		With .Items
			Debug.Print( "Handle" )
			Debug.Print( .SelectedItem(0) )
			Debug.Print( "Caption" )
			Debug.Print( .CellCaption(.SelectedItem(0),0) )
		End With
	End With
End Sub

Dim h
With AxTree1
	.BeginUpdate()
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"Cell 1.1")
		.InsertItem(h,Nothing,"Cell 1.2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"Cell 2.1")
		.InsertItem(h,Nothing,"Cell 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
451
Can I display the cell's check box after the text

With AxTree1
	With .Columns.Add("Column")
		.Def(EXTREELib.DefColumnEnum.exCellHasCheckBox) = True
		.Def(EXTREELib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check"
	End With
	With .Items
		.CellHasCheckBox(.AddItem("Caption 1"),0) = True
		.CellHasCheckBox(.AddItem("Caption 2"),0) = True
	End With
End With
450
Can I change the order of the parts in the cell, as checkbox after the text, and so on

Dim h
With AxTree1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column").Def(EXTREELib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
		.CellHasCheckBox(h,0) = True
	End With
End With
449
Can I have an image displayed after the text. Can I get that effect without using HTML content

Dim h
With AxTree1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column").Def(EXTREELib.DefColumnEnum.exCellDrawPartsOrder) = "caption,icon,check,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
	End With
End With
448
Does your control support RightToLeft property for RTL languages or right to left

Dim h
With AxTree1
	.BeginUpdate()
	.ScrollBars = EXTREELib.ScrollBarsEnum.exDisableBoth
	.LinesAtRoot = EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.Def(EXTREELib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	.RightToLeft = True
	.EndUpdate()
End With
447
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right

With AxTree1
	.BeginUpdate()
	.ScrollBars = EXTREELib.ScrollBarsEnum.exDisableBoth
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		.Add("C4")
		.Add("C5")
		.Add("C6")
		.Add("C7")
		.Add("C8")
	End With
	.RightToLeft = True
	.EndUpdate()
End With
446
How can I use the CASE statement (CASE usage)

With AxTree1
	.BeginUpdate()
	.Columns.Add("Value").Width = 24
	With .Columns.Add("CASE - statment")
		.ComputedField = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourt" & _
"heen')"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With
445
How can I use the CASE statement (CASE usage)

With AxTree1
	.BeginUpdate()
	.Columns.Add("Value").Width = 24
	With .Columns.Add("CASE - statment")
		.ComputedField = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen" & _
"';14:'Fourtheen')"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With
444
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )

With AxTree1
	.BeginUpdate()
	.Columns.Add("Value").Width = 24
	With .Columns.Add("SWITCH - statment")
		.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With
443
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection

With AxTree1
	.BeginUpdate()
	.Columns.Add("Value").Width = 24
	With .Columns.Add("IN - statment")
		.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With
442
Is is possible to use HTML tags to display in the filter caption

With AxTree1
	.BeginUpdate()
	.FilterBarPromptVisible = True
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
441
How can I find the number of items after filtering
Dim h
With AxTree1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("")
		.CellCaption(h,0) = .VisibleItemCount
	End With
	.EndUpdate()
End With
440
How can I change the filter caption

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptWords Or EXTREELib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
439
While using the filter prompt is it is possible to use wild characters

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptPattern
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
438
How can I list all items that contains any of specified words, not necessary at the beggining

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptStartWords Or EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
437
How can I list all items that contains any of specified words, not strings

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptWords Or EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
436
How can I list all items that contains all specified words, not strings

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptWords Or EXTREELib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
435
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
434
Is it possible to list only items that ends with any of specified strings

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
433
Is it possible to list only items that ends with any of specified strings

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
432
Is it possible to list only items that starts with any of specified strings

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
431
Is it possible to list only items that starts with specified string

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
430
How can I specify that the list should include any of the seqeunces in the pattern

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london seattle"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
429
How can I specify that all sequences in the filter pattern must be included in the list

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = EXTREELib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
428
How do I change at runtime the filter prompt

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
427
How do I specify to filter only a single column when using the filter prompt

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
426
How do I change the prompt or the caption being displayed in the filter bar

With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	.EndUpdate()
End With
425
How do I enable the filter prompt feature

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With
424
I have an EBN file how can I apply different colors to it, so no need to create a new one

Dim h,hC
With AxTree1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.HasLines = EXTREELib.HierarchyLineEnum.exNoLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,Nothing,"Default")
		.ItemBackColor(hC) = &H1000000
		.ItemHeight(.InsertItem(h,Nothing,"")) = 6
		hC = .InsertItem(h,Nothing,"Light Green")
		.ItemBackColor(hC) = &H100ff00
		.ItemHeight(.InsertItem(h,Nothing,"")) = 6
		hC = .InsertItem(h,Nothing,"Dark Green")
		.ItemBackColor(hC) = &H1007f00
		.ItemHeight(.InsertItem(h,Nothing,"")) = 6
		hC = .InsertItem(h,Nothing,"Magenta")
		.ItemBackColor(hC) = &H1ff7fff
		.ItemHeight(.InsertItem(h,Nothing,"")) = 6
		hC = .InsertItem(h,Nothing,"Yellow")
		.ItemBackColor(hC) = &H17fffff
		.ItemHeight(.InsertItem(h,Nothing,"")) = 6
		.ExpandItem(h) = True
	End With
End With
423
How can I change the foreground color for a particular column

With AxTree1
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Def(EXTREELib.DefColumnEnum.exHeaderForeColor) = 8439039
		.Add("Column 3")
	End With
End With
422
How can I change the background color for a particular column

With AxTree1
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Def(EXTREELib.DefColumnEnum.exHeaderBackColor) = 8439039
		.Add("Column 3")
	End With
End With
421
How can I display the column using currency format and enlarge the font for certain values

With AxTree1
	With .Columns.Add("Currency")
		.Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
		.FormatColumn = "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
	End With
	With .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("9.94")
		.AddItem("11.94")
		.AddItem("1000")
	End With
End With
420
How can I highlight only parts of the cells

Dim h
With AxTree1
	With .Columns.Add("")
		.Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
		.FormatColumn = "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
419
How can I get the number of occurrences of a specified string in the cell

Dim h
With AxTree1
	.Columns.Add("")
	With .Columns.Add("occurrences")
		.ComputedField = "lower(%0) count 'o'"
		.FormatColumn = "'contains ' + value + ' of \'o\' chars'"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1 oooof the root")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
End With
418
How can I display dates in my format

With AxTree1
	With .Columns.Add("Date")
		.Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
		.FormatColumn = "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
	End With
	With .Items
		.AddItem(#1/21/2001#)
		.AddItem(#2/22/2002#)
		.AddItem(#3/13/2003#)
		.AddItem(#4/24/2004#)
	End With
End With
417
How can I display dates in short format

With AxTree1
	.Columns.Add("Date").FormatColumn = "shortdate(value)"
	With .Items
		.AddItem(#1/1/2001#)
		.AddItem(#2/2/2002#)
		.AddItem(#3/3/2003#)
		.AddItem(#4/4/2004#)
	End With
End With
416
How can I display dates in long format

With AxTree1
	.Columns.Add("Date").FormatColumn = "longdate(value)"
	With .Items
		.AddItem(#1/1/2001#)
		.AddItem(#2/2/2002#)
		.AddItem(#3/3/2003#)
		.AddItem(#4/4/2004#)
	End With
End With
415
How can I display only the right part of the cell

Dim h
With AxTree1
	.Columns.Add("")
	With .Columns.Add("Right")
		.ComputedField = "%0 right 2"
		.FormatColumn = "'""' + value + '""'"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"SChild 3")
		.ExpandItem(h) = True
	End With
End With
414
How can I display only the left part of the cell

Dim h
With AxTree1
	.Columns.Add("")
	.Columns.Add("Left").ComputedField = "%0 left 2"
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"SChild 3")
		.ExpandItem(h) = True
	End With
End With
413
How can I display true or false instead 0 and -1

With AxTree1
	.Columns.Add("Boolean").FormatColumn = "value != 0 ? 'true' : 'false'"
	With .Items
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(0)
		.AddItem(1)
	End With
End With
412
How can I display icons or images instead numbers

With AxTree1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Icons")
		.Def(EXTREELib.DefColumnEnum.exCellCaptionFormat) = 1
		.FormatColumn = "'The cell displays the icon <img>'+value+'</img> instead ' + value"
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With
411
How can I display the column using currency

With AxTree1
	.Columns.Add("Currency").FormatColumn = "currency(dbl(value))"
	With .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("0")
		.AddItem(5)
		.AddItem("10000.99")
	End With
End With
410
How can I display the currency only for not empty cells

With AxTree1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''"
	With .Items
		.AddItem("1.23")
		.AddItem("2.34")
		.AddItem("0")
		.ItemBackColor(.AddItem()) = RGB(255,128,128)
		.AddItem("10000.99")
	End With
End With
409
Is there a function to display the number of days between two date including the number of hours

Dim h
With AxTree1
	.Columns.Add("Start").Width = 32
	.Columns.Add("End")
	.Columns.Add("Duration").ComputedField = "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : " & _
"'') + =:3 + ' hour(s)' : '' )"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001#
		h = .AddItem(#2/22/2002 0:00:00 PM#)
		.CellCaption(h,1) = #3/14/2002 1:00:00 PM#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003 11:00:00 AM#
	End With
End With
408
Is there a function to display the number of days between two date including the number of hours

Dim h
With AxTree1
	.Columns.Add("Start")
	.Columns.Add("End")
	.Columns.Add("Duration").ComputedField = """D "" + int(date(%1)-date(%0)) + "" H "" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001 11:00:00 PM#
		h = .AddItem(#2/22/2002 0:00:00 PM#)
		.CellCaption(h,1) = #3/14/2002 1:00:00 PM#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003 11:00:00 AM#
	End With
End With
407
How can I display the number of days between two dates

Dim h
With AxTree1
	.Columns.Add("Start")
	.Columns.Add("End")
	.Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001#
		h = .AddItem(#2/22/2002#)
		.CellCaption(h,1) = #3/14/2002#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003#
	End With
End With
406
How can I get second part of the date

With AxTree1
	.Columns.Add("Date")
	.Columns.Add("Second").ComputedField = "sec(date(%0))"
	With .Items
		.AddItem(#1/11/2001 10:10:00 AM#)
		.AddItem(#2/22/2002 11:01:22 AM#)
		.AddItem(#3/13/2003 0:23:01 PM#)
		.AddItem(#4/14/2004 1:11:59 PM#)
	End With
End With
405
How can I get minute part of the date

With AxTree1
	.Columns.Add("Date")
	.Columns.Add("Minute").ComputedField = "min(date(%0))"
	With .Items
		.AddItem(#1/11/2001 10:10:00 AM#)
		.AddItem(#2/22/2002 11:01:00 AM#)
		.AddItem(#3/13/2003 0:23:00 PM#)
		.AddItem(#4/14/2004 1:11:00 PM#)
	End With
End With
404
How can I check the hour part only so I know it was afternoon

With AxTree1
	.ConditionalFormats.Add("hour(%0)>=12").Bold = True
	.Columns.Add("Date")
	.Columns.Add("Hour").ComputedField = "hour(%0)"
	With .Items
		.AddItem(#1/11/2001 10:00:00 AM#)
		.AddItem(#2/22/2002 11:00:00 AM#)
		.AddItem(#3/13/2003 0:00:00 PM#)
		.AddItem(#4/14/2004 1:00:00 PM#)
	End With
End With
403
What about a function to get the day in the week, or days since Sunday

With AxTree1
	.Columns.Add("Date")
	.Columns.Add("WeekDay").ComputedField = "weekday(%0)"
	With .Items
		.AddItem(#1/11/2001 10:00:00 AM#)
		.AddItem(#2/22/2002 11:00:00 AM#)
		.AddItem(#3/13/2003 0:00:00 PM#)
		.AddItem(#4/14/2004 1:00:00 PM#)
	End With
End With
402
Is there any function to get the day of the year or number of days since January 1st

With AxTree1
	.Columns.Add("Date")
	.Columns.Add("Day since January 1st").ComputedField = "yearday(%0)"
	With .Items
		.AddItem(#1/11/2001 10:00:00 AM#)
		.AddItem(#2/22/2002 11:00:00 AM#)
		.AddItem(#3/13/2003 0:00:00 PM#)
		.AddItem(#4/14/2004 1:00:00 PM#)
	End With
End With
401
How can I display only the day of the date

With AxTree1
	.Columns.Add("Date")
	.Columns.Add("Day").ComputedField = "day(%0)"
	With .Items
		.AddItem(#1/11/2001 10:00:00 AM#)
		.AddItem(#2/22/2002 11:00:00 AM#)
		.AddItem(#3/13/2003 0:00:00 PM#)
		.AddItem(#4/14/2004 1:00:00 PM#)
	End With
End With